home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.1 / card_6668.txt < prev    next >
Text File  |  1989-02-26  |  3KB  |  125 lines
  1. -- card: 6668 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3837
  5. -- name: PopUpMenu
  6. ----- HyperTalk script -----
  7. on closecard
  8.   hide message window
  9. end closecard
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: A004
  15. -- rect: left=227 top=32 right=51 bottom=288
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Example
  24. ----- HyperTalk script -----
  25. on mousedown
  26.   if the optionkey is down then
  27.     edit script of target
  28.     exit mousedown
  29.   end if
  30.  
  31.   put the mouseloc into myPlace
  32.   put item 1 of myPlace - 20 into horiz
  33.   put item 2 of myPlace - 10 into vert
  34.   get PopUpMenu("Hello;my;name;is;Steve", 1, vert, horiz)
  35.   put "You chose item" && it
  36. end mousedown
  37.  
  38.  
  39.  
  40. -- part 2 (button)
  41. -- low flags: 00
  42. -- high flags: A004
  43. -- rect: left=299 top=32 right=51 bottom=360
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: Another
  52. ----- HyperTalk script -----
  53. on mousedown
  54.   if the optionkey is down then
  55.     edit script of target
  56.     exit mousedown
  57.   end if
  58.  
  59.   put the mouseloc into myPlace
  60.   put item 1 of myPlace - 20 into horiz
  61.   put item 2 of myPlace - 10 into vert
  62.   get PopUpMenu("For;a;disk;catalog;of;BMUG's;stack;library;"& "Send;$3;To;BMUG;1442A;Walnut;#62;Berkeley;CA;94709", 5, vert, horiz)
  63.   put "You chose item" && it
  64. end mousedown
  65.  
  66.  
  67.  
  68. -- part 3 (button)
  69. -- low flags: 00
  70. -- high flags: A003
  71. -- rect: left=82 top=302 right=324 bottom=182
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Install
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   if the optionkey is down then pass mouseup
  83.   put installres(XFCN,PopUpMenu) into it
  84.   if it is empty then play oops
  85.   else answer it
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part contents for background part 10
  91. ----- text -----
  92. 3
  93.  
  94. -- part contents for background part 5
  95. ----- text -----
  96. PopUpMenu
  97.  
  98. -- part contents for background part 6
  99. ----- text -----
  100.  
  101. This HyperCard external function returns the selection from a popup menu created from a hypercard item list (the first parameter).  The
  102. menu is placed on the screen so that the checked item is at the position (global) top,left.
  103.  
  104.  
  105.  
  106. Thanks to:
  107. Andrew Gilmartin
  108.  Brown University
  109.  
  110.  
  111.  
  112. -- part contents for background part 7
  113. ----- text -----
  114. Syntax:
  115.  
  116. PopUpMenu( "MenuItems", CheckedItem, Top, Left )
  117.  
  118.  
  119. "MenuItems" is a list of items seperated by commas that will comprise the menu.
  120.  
  121. <CheckedItem> is the number of the item that will be initially selected & checked.
  122.  
  123. <Top> is the vertical placement of the checked item. 
  124.  
  125. <Left> is the horizontal placement of the checked item.